RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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13 
1-Se 1984 00:21:5 VAX-11 Bliss=32_ V4.0-742 Page 1 
14 ty 7 13:68:02 DISKSVMSMASTER:CRUNOFF.SRCIDSPHL.BLI; 1° (1) 


; 1 0001 MODULE DSPHL ( ! 

; ¢ B08 IDENT = ‘'v04-000' 
; P 000 %BLISS32L, 
: ¢ Pp Boe ADDRESSING _MODE (EXTERNAL =LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 

us ° 0006 : )= 

ot omit 

: 10 484 : PETTITT TATA LI LILLE LTE TELL LE LL LETETT TTT T TTT TTT TTT TTT TTT TTT TTT TTT TTT 

; 7 = 

: 11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
; \¢ Bot § 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARB. MASSACHUSETTS. ® 

ae Q015 1 is ALL RIGHTS RESERVED. . | 
; : * 

; 15 0015 1 !« bore SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og Li * 
; 16 0016 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AN : —o THE * 
3 17 0017 1 !* IN ELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR OTHER * 
; 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
: st Bass : ~ TRANSFERRED. * 

Py : * 

; 22 0022 1 !* He 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 23 0023 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Se Oase ! Me CORPORATION. * | 
Ps : & 

: 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 27 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 28 0028 1 is ® 

te 0029 1 ix * 

: He Boe ! { WeSeeeerarNaseaeeneneneRNeNeseENeereeserereneeeeeneneententetesteteesereeeTs | 
a 0032 1 
“Fae 3 0033 1 !++ 

3 34 0034 1! 

; $2 O03? \ FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

tee 0037 1 | ABSTRACT: Processes the .DISPLAY LEVELS command. 

; 0038 1! 

: 39 0039 1! 

; re sre ! ENVIRONMENT: Transportable 

>; 642 0042 1 | AUTHOR: R.W.Friday CREATION DATE: May, 1979 | 
; 435 004 1! 


013 | 
DSPH 16-Sep-1984 00:21: VAX=-11 Bliss-32 V4.0-742 Page 2 ef] 
“boo Revision History 12-3087 138 00: 8hiaS DISKSVMSMASTER: CRUNOFF .SRCIDSPHL.BLI:1> (2) 


s 465 0044 1 ZSBTTL ‘Revision History’ 

3 re 45 1! 

; ref Boe : MODIFIED BY: 

> 49 0048 1 / 002 KFA00002 Ken Alden 07-Mar-1983 

.- Se 0049 1! Global edit of all modules. Updated module names, idents, 
3 3 Spee : copyright dates. Changed require files to BLISS library. 
: 3§ $082 1 ie. 
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RSBTTL "Module Level Declarations’ 
i TABLE OF CONTENTS: 


INCLUDE FILES: 


LIBRARY "NXPORT:XPORT'; ' XPORT Libra 

REQUIRE ‘REQ:RNODEF'; ' RUNOFF cartant definitions 
ZIF OSRPLUS XTHEN 

“lew "REQ:DPLLIB'; ! DSRPLUS BLISS Library 
rer "REQ:DSRLIB'; ! DSR BLISS Library 

' 

' MACROS 


i EQUATED SYMBOLS: 
i OWN STORAGE: 


EXTERNAL REFERENCES: 
EXTERNA 

TRAY : FIXED_STRING, 

HLDSP : VECTOR CMAX_ LEVELS); 
EXTERNAL ROUTINE 

GETDD 


RSKIPS, 
SKPSEP: 


VMeewmas sa 


1f-}e ~3ee13B2 99:85:83 «— BhScbimGmAS Fens chONGre “SrcaDSPHL.eLIe 
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Module Level Declarations 
GLOBAL ROUTINE DSPHL (HANDLER) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
See the ABSTRACT for a general description. 
FORMAL PARAMETERS: 
HANDLER is a dummy parameter passed for conformance only. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 
OCAL 
DISPLAY_CODE; 


'Skip spaces and tabs before the first display descriptor. 
RSKIPS (IRA); | 


‘Attempt to get and process enough display descriptors to define 
'the ees ay characteristics of all header levels. 

INCR I FROM 0 TO (MAX_LEVELS - 1) DO 

BEGIN | 


7 (DISPLAY_CODE) FROM -1 TO 1 OF 


UNI OOS NOME OOO NOME WUOODR UMRAO OD 


ped eet thee OY eh Nae a (QOD DOOOOCOCODO 


PIPIPIPIPOPINIPINYNINININININIPINIPNIPINPNININININIPIPINYPPUPOPNINUNPPPyfpofnononfnyd 


PD AXDPEDAPEDG PAA & Be BB BBE BE EWAN IIIInopononononp 


| 

{-1] : | 

5 RETURN; 'Quit if an error is detected 
3? (0) : : | 
0; 'Skip over empty positions 

(+1) : | 

HLDSP C.1] = .DISPLAY_CODE; 'Save this display code | 

TES; | 


'Skip a separator to position to next descriptor 
a -1 NEQ (MAX_LEVELS = 1) 


N 
SKPSEP (IRA); 
END 
END; ‘End of DSPHL 


WWIII NINE NINA NINN WINN WINN II IR noonononononony 2 2 


SAVIO ARAN SSRIS ALIS SONS ALUN 2S Ooo NO Pet 2 O00 AOU MM DOD OPUS 


Ne ee ee eee eee ww ew lee lol olelololololeolololol ol olololololololololololo) 


ee ee ee ec ce ee ee ee a ed ed ad nd od od od wd 
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NMC OCBnNOuswN—O 0 
SSN NNN NNO OO 


Vo6~b00 


Routine Si 


Name 
SCODES 


File 


_$255$DUA 
“$255$DUA 


ze: 


38: 
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00000000G_ EF 


000000006 


4 FFFFFFFF 
000 000F 


QOODD000GEF 42 
05 


00000000G_ EF 
cE 52 


74 bytes, 


Bytes 


F 
F 


Routine Base: 


23 000000006 


SCODES + 


PSECT SUMMARY 


74 NOVEC,NOWRT, 


Library Statistics 


SYSLIBIXPORT.L32;1 
RUNOFF . SRCJDSRL1IB.L32;1 


Total 


590 
1248 


000C 000 
Os 5 009 
3 55 ooo0e 
4 FB 0000 
2 D4 0001 
5E 0D 00017 1$ 
4 FB B06 
0 CF its 
21 00028 2$: 
04 0002E 
F DO OO02F 3$: 
52 Di 00037 4$: 
09 13 OO03A 
53 DD 0003Cc 
01 Fe 4 t43 
05 F3 00045 5$: 
04 00049 6$: 
0000 
'End of module 
Attributes 
RD , EXE,NOSHR, 
Symbols eeoecees 
Loaded Percent 
9 0 
0 


eTITLE OSPHL 
-IDENT \V04-000\ 
EXTRN IRA, HLDSP, GETDD 
EXTRN RSKIPS, SKPSEP 
-PSECT S$CODES,NOWRT,2 
eENTRY DSPHL, Save R2,R3 
MOVAB IRA, R3 
SUBL #4, SP 
PUSHL R 
CALLS #1, RSKIPS 
CLRL I 
PUSHL SP 
CALLS #1, GETDD 
CASEL RO, #-1, #2 
WORD $378 7 
4$-2$,- 
3$-2$ 
RET 
MOVL DISPLAY_CODE, HLDSPCIJ 
CMPL J as 
BEQL § 
PUSHL R3 
CALLS #1, SKPSEP 
AOBLEQ #5, I, 1$ 
ET 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
252 :00. 
8g $0:00:3 


5 | 
) 


cc 


$-32_ V4.0-742 
TER: CRUNOFF .SRCIJDSFHL.BLI; fa 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DSPHL/OBJ=OBJ$:DSPHL MSRC$:DSPHL/UPDATE=(ENH$:DSPHL) 
74 60:62-8 + 0 data bytes 


LE SSS... | 


; Lines/CPU Min: 
; Lexemes/CPU-Min: 


tion Complete 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


I 
R 
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